Just slap this in Popups

Color
.Colors
..Dark Blue:/msg $active 2 $+ $?5="Enter Text" 
..Green:/msg $active 3 $+ $?6="Enter Text" 
..Red:/msg $active 4 $+ $?7="Enter Text" 
..Maroon:/msg $active 5 $+ $?8="Enter Text" 
..Purple:/msg $active 6 $+ $?9="Enter Text" 
..Tan:/msg $active 7 $+ $?0="Enter Text" 
..Yellow:/msg $active 8 $+ $?11="Enter Text" 
..Light Green:/msg $active 9 $+ $?12="Enter Text" 
..Grey-Blue:/msg $active 10 $+ $?13="Enter Text" 
..Light Blue:/msg $active 11 $+ $?14="Enter Text" 
..Blue:/msg $active 12 $+ $?15="Enter Text" 
..Pink:/msg $active 13 $+ $?16="Enter Text" 
..Grey:/msg $active 14 $+ $?17="Enter Text" 
..Light Grey:/msg $active 15 $+ $?18="Enter Text" 
.Other Things
..Bold:/msg $active  $+ $?1="Enter Text"
..Underlined:/msg $active  $+ $?2="Enter text"
..Highlighted:/msg $active  $+ $?3="Enter Text"
..Color:/msg $active  $+ $?4="Enter color number" $+ $?="Enter Text"
..Random color:/msg $active  $+ $rand(2,15) $+ $?5="Enter Text"2,15) $+ $?="Enter Text"


And for your convenience ive added some aliases scripts as well..:

/brick { %num = 1 | unset %msg  | %msg =  | %color = p
  :start
  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  :add
  if $mid(%num,1, *1) != $null {
    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
    inc %num 
  goto start  }
  say %msg
}
/ransom { %num = 2 | unset %msg  | %msg =   $upper( $mid(1, 1,*1) ) $+ 
  :start
  %U = $rand(1,2) | %B = $rand(1,2) | %R = $rand(1,2) | %up = $rand(1,2) 
  %DaMan =  
  if %u == 1 { %DaMan = $remove(%daMan,) }
  if %b == 1 { %DaMan = $remove(%DaMan,) }
  if %R == 1 { %DaMan = $remove(%DaMan,) }
  if $mid(%num,1, *1) != $null {
    if %up == 1 && $mid(%num, 1,*1) != $chr(32)  { %msg = %msg $+ %DaMan $+ $upper( [ $mid(%num, 1,*1) ] ) $+ %DaMan }
    if %up == 2 || $mid(%num, 1,*1) == $chr(32) { %msg = %msg $+ %DaMan $+ $mid(%num, 1,*1) $+ %DaMan }
    inc %num 
  goto start  }
  say %msg
}


Hope you like it

Waterfront